home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 2 / DOS027.dsk / AUTO DRIVER.int < prev    next >
Text File  |  2012-02-16  |  4KB  |  113 lines
  1. 5 GOTO 10000
  2. 180 TREND= RND (3)-1:COUNT=0
  3. 190 IF TREND>=0 THEN 192:IF X<=1 THEN 193:X=X-1:GOTO 193
  4. 191 S= PEEK (-16336)
  5. 192 IF TREND=0 THEN 193:IF X>=R THEN 193:X=X+1
  6. 193 S= PEEK (-16336):IF L=0 THEN 198
  7. 195 COLOR= 0:HLIN P,P+2 AT LINE:HLIN P,P+2 AT LINE+1:GOTO 200
  8. 198 COLOR= 0:HLIN P,P+2 AT LINE-1:HLIN P,P+2 AT LINE:HLIN P,P+2 AT LINE+1
  9. 199 COLOR= 8:HLIN P,P+2 AT LINE+2:PLOT P+1,LINE+3
  10. 200 CALL -912
  11. 202 COLOR= 8:HLIN P,P+2 AT LINE+2:PLOT P+1,LINE+3
  12. 204 S= PEEK (-16336):VTAB 24:TAB 2:PRINT A$;:TAB X:PRINT B$;
  13. 240 Y=PDL (0)
  14. 243 IF Y>85 THEN 246:IF P=0 THEN 260
  15. 244 P=P-1:COLOR= 0:PLOT P+3,LINE:PLOT P+3,LINE+2:PLOT P+2,LINE+3:PLOT P+2,LINE+1
  16. 245 GOTO 250
  17. 246 IF Y<170 THEN 260
  18. 247 IF P>36 THEN 260
  19. 248 COLOR= 0:PLOT P,LINE:PLOT P,LINE+2:P=P+1
  20. 249 PLOT P,LINE+1:PLOT P,LINE+3
  21. 250 COLOR= 8:Y= PEEK (-16336)
  22. 252 VLIN LINE,LINE+3 AT P+1:HLIN P,P+2 AT LINE+2
  23. 254 HLIN P,P+2 AT LINE
  24. 260 S= SCRN(P,LINE+3)+ SCRN(P+2,LINE+3)
  25. 270 IF S>0 THEN 1000
  26. 275 L=L+1:IF L<4 THEN 280
  27. 278 L=0:LINE=LINE+1:IF LINE>42 THEN 3000
  28. 280 T=T+1:IF T>TIME THEN 2000
  29. 290 S= PEEK (-16336)- PEEK (-16336)
  30. 300 COUNT=COUNT+1:IF COUNT< RND (10) THEN 190
  31. 310 IF  RND (3)=2 THEN GOSUB 6000
  32. 320 GOTO 180
  33. 800  POKE -16304,0: POKE -16302,0: POKE 34,0: POKE 50,63
  34. 810 X=35-W- RND (10):LINE=1
  35. 815 R=40-W:P=X+2
  36. 820 TREND=0:GOTO 830
  37. 825 TREND= RND (3)-1
  38. 830 COUNT=0
  39. 840 VTAB LINE:TAB 2:PRINT A$;
  40. 845 VTAB LINE:TAB X:PRINT B$;
  41. 850 LINE=LINE+1:IF LINE>24 THEN 900
  42. 860 X=X+TREND:IF X<1 THEN X=1:IF X>R THEN X=R:COUNT=COUNT+1:IF COUNT< RND (10) THEN 840:GOTO 825
  43. 900 COLOR= 8:HLIN P,P+2 AT 0:HLIN P,P+2 AT 2:VLIN 1,3 AT P+1
  44. 910 LINE=0:L=1
  45. 950 VTAB 24:TAB 2:PRINT A$;:VTAB 24:TAB X:PRINT B$;
  46. 960 GOTO 180
  47. 1000 IF  SCRN(P,LINE+3)#0 THEN 1005:PP=P+2:GOTO 1010
  48. 1005 PP=P
  49. 1010 IF PP>38 THEN PP=38:IF PP<1 THEN PP=1:FOR N=1 TO 20
  50. 1020 COLOR= 15:GOSUB 1140:COLOR= 0:GOSUB 1100
  51. 1030 FOR II=I TO 10:X= PEEK (-16336)- PEEK (-16336):NEXT II
  52. 1040 COLOR= 0:GOSUB 1140:COLOR= 15:GOSUB 1100
  53. 1045 FOR II=1 TO 10:X= PEEK (-16336):NEXT II
  54. 1050 NEXT N
  55. 1070 HITS=HITS+1
  56. 1080 GOTO 800
  57. 1100 PLOT PP,LINE+3:PLOT PP+1,LINE+2:PLOT PP+1,LINE+4:PLOT PP-1,LINE+2:PLOT PP-1,LINE+4:RETURN 
  58. 1140 FOR I=LINE+2 TO LINE+4:HLIN PP-1,PP+1 AT I:NEXT I:RETURN 
  59. 2000  POKE -16301,0: POKE 34,20:PRINT 
  60. 2005  POKE 50,255
  61. 2010 PRINT "GAME  OVER<CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G>";
  62. 2020 TAB 18:PRINT "CRASHES =  ";HITS
  63. 2040 PRINT "MADE IT TO THE END  ";MADEIT;"  TIMES"
  64. 2100 PRINT "SKILL LEVEL =  ";SKILL;
  65. 2200 END 
  66. 3000  POKE -16301,0: POKE 34,20:CALL -936: POKE 50,255
  67. 3005 VTAB 21:TAB 10:PRINT "M A D E   I T !<CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G>";
  68. 3010 PRINT :FOR I=1 TO 700:NEXT I
  69. 3020 MADEIT=MADEIT+1
  70. 3025  POKE 50,63
  71. 3030 GOTO 800
  72. 5999 REM   DRAW SCENARY
  73. 6000 S= PEEK (-16336):IF X>(39-X-W) THEN 6030
  74. 6010 TREE=X+W+ RND (35-X-W)+2:GOTO 6100
  75. 6030 TREE=3+ RND (X-6)
  76. 6040 S= PEEK (-16336)- PEEK (-16336)
  77. 6100 IF  RND (7)>4 THEN 6250:COLOR= 4
  78. 6105 IF  RND (3)>1 THEN 6200
  79. 6110 HLIN TREE,TREE+3 AT 47:VLIN 41,46 AT TREE+1
  80. 6120 VLIN 41,46 AT TREE+2:VLIN 41,44 AT TREE:VLIN 41,44 AT TREE+3
  81. 6150 RETURN 
  82. 6200 REM  DRAW BUSH
  83. 6205 COLOR= 12
  84. 6210 HLIN TREE,TREE+2 AT 47
  85. 6220 VLIN 43,46 AT TREE+1
  86. 6230 VLIN 43,45 AT TREE:VLIN 43,45 AT TREE+2
  87. 6240 RETURN 
  88. 6250 REM   DRAW FLOWERS
  89. 6260 COLOR= 4:VLIN 45,47 AT TREE+1
  90. 6262 VLIN 42,46 AT TREE-1
  91. 6265 VLIN 45,47 AT TREE-3:VLIN 46,47 AT TREE-2
  92. 6270 COLOR= 9:PLOT TREE+1,44
  93. 6275 PLOT TREE,43:PLOT TREE,45:PLOT TREE+2,45:PLOT TREE+2,43
  94. 6280 COLOR= 1:PLOT TREE-1,41
  95. 6290 COLOR= 8:PLOT TREE-3,44
  96. 6295 COLOR= 14:PLOT TREE-2,45
  97. 6300 RETURN 
  98. 10000 REM     DRIVER
  99. 10010 TEXT :CALL -936
  100. 10020 VTAB 5:PRINT "  TEST YOUR DRIVING SKILL."
  101. 10050 VTAB 8:PRINT "THIS IS THE FULL SPEED VERSION."
  102. 10060 VTAB 10:PRINT "PADDLE ZERO IS FOR STEERING."
  103. 10070 VTAB 13:PRINT "WHAT IS YOUR SKILL LEVEL?"
  104. 10080 VTAB 15:INPUT "(1-10)  1=BEGINNER,  10=EXPERT  ",SKILL
  105. 10100 PRINT "PLEASE TYPE A QUOTE MARK FOR ME."
  106. 10110 INPUT "(SHIFT 2)  ",Q$
  107. 10112 TIME=800
  108. 10115 W=17-SKILL
  109. 10120 DIM A$(38),B$(W)
  110. 10130 FOR I=1 TO 38:A$(I)=Q$:NEXT I
  111. 10140 FOR I=1 TO W:B$(I)="@":NEXT I
  112. 20000 GOTO 800
  113.